COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(declare (special x n) (fixnum n))
C00004 ENDMK
C⊗;
(declare (special x n) (fixnum n))
(setq n 32000.)
(defun init ()
 (declare (fixnum i))
       (do ((a () (cons () a))
	    (i n (1- i)))
	   ((zerop i) (setq x a)))
       ())
(include "timer.lsp")
(timer timit (init))

(fasload cons)

(fasload ttime fas lisp)

(timit)
(setq x ())(gc)
Timing performed on Wednesday 08/11/82 at 20:59:11.
Cpu Time = 0.277
Elapsed Time = 107.683333
Wholine Time = 49.6
GC Time = 36.864
Load Average Before  = 0.6024704
Load Average After   = 1.19973421
Average Load Average = 0.901102304
NIL 
NIL 
NIL 
Timing performed on Wednesday 08/11/82 at 21:01:17.
Cpu Time = 0.213
Elapsed Time = 0.63333333
Wholine Time = 0.516666666
GC Time = 0.0
Load Average Before  = 1.10915911
Load Average After   = 1.10926664
Average Load Average = 1.10921288
NIL